home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sounds Terrific 1
/
Sounds Terrific CD (1994)(Weird Science)(Disc 2 of 2)[!][Amiga-PC].iso
/
modules
/
p
/
piano13.mod
< prev
next >
Wrap
Text File
|
1994-08-04
|
2KB
|
74 lines
PIANO13.MOD - List current sub above read prompt (v4.20e)
Piano Man #38 @6870
Fri Dec 20 15:39:46 1991
5****************************************************************************
6 PIANO13.MOD
2Written For:7 WWIV v4.20e
2Written By:7 Piano Man 1@6851 (1Ice7NET) 12@6850 (WWIVnet)
2Date: 7December 20th, 1991 2 While:7 Listening to RUSH (Freewill) :)
2Difficulty:7 Simple..
2Description: 7Prints the current sub that a user is on above the read
prompt. 6EXAMPLE:
1General Forum
7Read:(1-30),?");
It's a useful mod and it looks pretty cool!
Well, this is my 14'th mod (2 PIANO10's -A&B) so please E-Mail me or call
my board, the add is at the end of the file.. THANKS!
5****************************************************************************
Legend:
* = Search for
= = Current Code (Existing...)
- = Delete line
+ = Add line
% = Moddify line
On with the mod!
Step 1 -> Load up MSGBASE1.C
Step 2 -> Search for "void scan"
Step 3 -> Change the 'char' statements to look like this:
= void scan(int msgnum, int optype, int *nextsub)
= {
% char s[81],s1[81],s2[81],s3[81],*b,*ss1; <- Add the "s3[81]"
= int i,i1,i2,done,quit,abort,next,val,realexpress;
= slrec ss;
= long l,len;
= postrec p,p1;
Step 4 -> Search for "Read Prompt" and make following changes:
= case 0: /* Read Prompt */
+ strcpy(s3,subboards[usub[cursub].subnum].name);
+ prt(1,s3);
% sprintf(s,"3Read:5(1-%u,^%u),6 <ENTER>3 for next msg? :",nummsgs,msgnum);
= nl();
= if (express) {
= s[0]=0;
Step 5 -> Save it, go to dos and type in MAKE and compile it.
This mod was written assuming you are running WWIV v4.20revision 'E' and are
compiling with Borland C++ v2.0. So if it doesn't work, go tell someone
else...
Thanks and I hope you like this mod!
Email me at 1@6851 (IceNET) and/or 12@6850 (WWIVnet)
Or call:
3Milliways ]I[
The Spirit of Radio
WWIV v4.2e++ PIANOLIZED!
(618) 259-7707
12/2400bps
IceNET @6851 (ZC/AC)
SysOp: Piano Man